|
فلزیاب ، مطالب علمی و آموزشی ۩۞۩ مدار فلزیاب و دستگاه فلزیاب تضمینی ۩۞۩ درباره وبلاگ به وبلاگ من خوش آمدید این وبلاگ در زمینه های مختلف مطالب علمی و آموزشی به صورت تخصصی و عمومی فعالیت می نماید و همچنین در زمینه فروش مدارات و دستگاه فلزیاب لازم است این نکته را یاد آور شوم که در این وبلاگ مطالب جدید در صفحه اول قرار نمیگیرد و شما میتوانید برای مشاهده جدید ترین مطالب مورد نظرتون در وبلاگ به بخش موضوعات مطالب به قسمت مورد نظر خود مراجعه نمایید درضمن این وبلاگ آماده تبادل لینک با تمامی وبلاگ ها و سلیت ها می باشد آخرین مطالب
برچسب: ساعت دیجیتال میکروکنترولر سون سگمنت نمایشگر clock AVR ATmega8 7segment Seven Segment , :: :: نويسنده : حامد
ساعت دیجیتال توسط ATmega8
دراین پروژه قصد داریم به معرفی یک ساعت دیجیتال با میکرو AVRATMEGA8 بپردازیم.درابتدا با پیکره بندی کردن ساعت داخلی این میکرو درمحیط BASCOM آشنا می شویم.توجه داشته باشید برای راه اندازی این ساعت به یک کریستال با مقدار32/768 نیاز پیدا میکنید. در ادامه پایه و اساس نمایش اعداد بر روی سون سگمنت ( 7SEGMENT ) را توسط این برنامه بررسی میکنیم. همانطور که میدانید ساعت داخلی میکروهای AVR از طریق کد زیر در محیط بسکام پیکره بندی می شود: Config Clock = Soft , Gosub = Sectic
Time$ = "_hour:_min:_sec""
متغییرهای _hour و _min و _sec متغییرهایی هستند که خود کامپایلر بسکام با پیکره بندی ساعت برای مشخص نمودن ساعت و دقیقه و ثانیه تعریف میکند.ما در این برنامه قصد داریم تنها مقادیر _hour و _min را بروی سون سگمنت نمایش دهیم.اما شما با درک برنامه ودر صورت علاقه می توانید مقدار _sec را نیز بر روی سون سگمنت نمایش دهید. توجه داشته باشید تا وقتی که کد Enable Interrupts را در محیط برنامه نویسی تایپ نکنید ساعت به جریان نمی افتد. Gosub = Sectic در واقع زیربرنامه ای است که میکرو هر یک ثانیه به سراغ آن رفته و دستورات موجود در آن را اجرا میکند. در این برنامه ما از 4 سون سگمنت آند مشترک تکی بهره برده ایم.هر کدام از این سون سگمنت ها دارای 10 پایه هستند.دو پایه از این 10 پایه مشترکا آند این سون سگمنت ها ، یک پایه مربوط به DAT سون سگمنت و7 پایه ی دیگر مربوط به کاتد ها هستند.برای ساختن اعداد باید کاتد ها را خاموش یا روشن میکنند.ما به طور قرار دادی به صورت مشخص شده در عکس زیر کاتد ها را نام گذاری میکنیم تا کار برنامه نویسی آسان تر گردد.
توجه کنید این نام گذاری کاملا قراردادی است و شما می توانید به صورتی که می خواهید نام گذاری کنید اما مبنای این برنامه نام گذاری اینگونه ی این 7 کاتد است. ما باید هر 7 کاتد همه ی سون سگمنت ها را به هم وصل کرده سپس آنها را به 7 پورت از پورت های میکرو متصل نماییم.و باید هر کدام از آند های سون سگمنت ها را به یک پورت میکرو متصل کنیم.پس ما برای راه اندازی سون سگمنت ها تنها به 11 پورت میکرو نیاز داریم. همان طور که گفتیم بعد از پیکره بندی ساعت داخلی میکرو با دو متغییر _hour و _min ( در این برنامه ) سرو کار داریم. می دانید این عدد ها می تواند یک رقمی یا دو رقمی باشند.اگر این عدد ها تنها مقادیری یک رقمی داشتند کار ما ساده بود اما چون مقادیری دو رقمی نیز پیدا می کنند برای نمایش آنها روی سون سگمنت به مشکل برخورد میکنیم. ما برای حل این مشکل در این برنامه هر یک از متغییر های _hour و _min را به دو متغییر دیگر تقسیم می کنیم تا نمایش اعداد روی سون سگمنت ها راحت تر شود. در این برنامه متغییر _hour به دو متغییر Yekan_h و Dahgan_h و متغییر _min به دو متغییر Yekan_m و Dahgan_m از طریق کد های زیر: Tmp_h = _hour Mod 100
Dahgan_h = Tmp_h / 10 Yekan_h = Tmp_h Mod 10 Tmp_m = _min Mod 100 Dahgan_m = Tmp_m / 10 Yekan_m = Tmp_m Mod 10 تبدیل می شوند.در کدهای بالا Tmp یک متغییر واسط است. حال که برای هر سون سگمنت یک متغییر داریم نوبت به نمایش عدد ها روی سون سگمنت ها است.ما ابتدا عدد ها را با صفر و یک کردن 7 پورت مشخص شده می سازیم و مشخص می کنیم. مثلا در این برنامه برای ساختن عدد یک با ید این 7 پورت بصورت زیر باشند: Portc.1 = 1 : Portd.2 = 0 : Portd.1 = 1 : Portd.0 = 1 :
Portc.2 = 1 : Portc.3 = 1 : Portc.4 = 0 و حال کار اصلی میکرو: Config Timer0 = Timer , Prescale = 8
Enable Timer0 On Timer0 7seg Start Timer0 تایمرصفر میکرو را پیکره بندی می کنیم.اما متغییر 7seg در واقع پرچم سرریزی تایمر صفر است.با هر بار پرچم سرریزی تایمر صفر میکرو به سراغ زیر برنامه 7seg رفته و دستور موجود در آن ( که در این برنامه انجام همان 8 عمل ذکر شده در بالا است ) را اجرا میکند. حالا چشم ما قابل به تشخیص این روشن وخاموش شدن ها نیست.جالب است اگر یک دوربین جلوی این ساعت بگیرید می توانید این روشن و خاموش شدن ها را ببینید. شما این ساعت را می توانید روی هر سون سگمنتی اجرا کنید که ما در زیر نحوه استفاده این برنامه را برای انواع مختلف آن توضیح داده ایم: 1- برای سون سگمنت های کوچک: در این جا نیازی به ترانزیستور ندارید ومی توانید پورت ها را مستقیم به میکرو متصل کنید.فقط توجه کنید سون سگمنت ها جریانی بیشتر از mA20 نکشد، چون برای میکرو مشکل پیش می آید. 2- برای سون سگمنت های 5 ولت به بالا: در این صورت نیاز به ترانزیستور پیدا می کنید. به طوری که برای 7 بخش ( کاتد ها ) از C945 وبرای 4 بخش( آندها ) از ترانزیستور C945 به علاوه A1015 استفاده کنید.نحوه اتصال درشکل های زیر آمده است.
جهت دانلود فایل پروتیوس اینجا کلیک کنید پسورد تمامی فایل ها http://puls.loxblog.com
منبع www.hlachini.com
برنامه ساعت فوق بطور کامل در زیر آورده شده است. '-----------------------------------------------
' the program of digital clock on 7seg-ment ' wrote by:fahim faryabi ' 1387/11/16 '----------------------------------------------- $regfile = "m8def.dat" $crystal = 8000000 Config Timer0 = Timer , Prescale = 8 Config Portd = Output Config Portc = Output Config Portb = Output Config Clock = Soft , Gosub = Sectic Time$ = "01:01:00" Config Debounce = 25 Enable Interrupts Enable Timer0 On Timer0 7seg Start Timer0 Dim Sel_7seg As Byte Dim Dahgan_m As Byte Dim Yekan_m As Byte Dim Flag As Byte Dim Tmp_m As Byte Dim Dahgan_h As Byte Dim Yekan_h As Byte Dim Tmp_h As Byte Ddrb.5 = 0 : Portb.5 = 1 Ddrd.3 = 0 : Portd.3 = 1 Declare Sub Sa_zyad Declare Sub Da_zyad Do Debounce Pinb.5 , 0 , Da_zyad , Sub Debounce Pind.3 , 0 , Sa_zyad , Sub Tmp_h = _hour Mod 100 Dahgan_h = Tmp_h / 10 Yekan_h = Tmp_h Mod 10 Tmp_m = _min Mod 100 Dahgan_m = Tmp_m / 10 Yekan_m = Tmp_m Mod 10 If _hour = 13 Then _hour = 01 End If If _hour < 1 Then _hour = 12 End If If _min = 60 Then _min = 0 End If If _min < 0 Then _min = 59 End If Loop End 'end program 7seg: Incr Sel_7seg Select Case Sel_7seg Case 1: Portb.3 = 1 : Portb.0 = 0 : Portb.1 = 0 : Portd.6 = 0 Flag = Yekan_m Case 2: Portb.3 = 0 : Portb.0 = 1 : Portb.1 = 0 : Portd.6 = 0 Flag = Dahgan_m Case 3: Portb.3 = 0 : Portb.0 = 0 : Portb.1 = 1 : Portd.6 = 0 Flag = Yekan_h Case 4: Portb.3 = 0 : Portb.0 = 0 : Portb.1 = 0 : Portd.6 = 1 Flag = Dahgan_h Sel_7seg = 0 End Select Select Case Flag Case 0: Portc.1 = 1 : Portd.2 = 0 : Portd.1 = 0 : Portd.0 = 0 : Portc.2 = 0 : Portc.3 = 0 : Portc.4 = 0 Case 1: Portc.1 = 1 : Portd.2 = 0 : Portd.1 = 1 : Portd.0 = 1 : Portc.2 = 1 : Portc.3 = 1 : Portc.4 = 0 Case 2 : Portc.1 = 0 : Portd.2 = 0 : Portd.1 = 0 : Portd.0 = 1 : Portc.2 = 0 : Portc.3 = 0 : Portc.4 = 1 Case 3: Portc.1 = 0 : Portd.2 = 0 : Portd.1 = 0 : Portd.0 = 1 : Portc.2 = 0 : Portc.3 = 1 : Portc.4 = 0 Case 4: Portc.1 = 0 : Portd.2 = 0 : Portd.1 = 1 : Portd.0 = 0 : Portc.2 = 1 : Portc.3 = 1 : Portc.4 = 0 Case 5: Portc.1 = 0 : Portd.2 = 1 : Portd.1 = 0 : Portd.0 = 0 : Portc.2 = 0 : Portc.3 = 1 : Portc.4 = 0 Case 6: Portc.1 = 0 : Portd.2 = 1 : Portd.1 = 0 : Portd.0 = 0 : Portc.2 = 0 : Portc.3 = 0 : Portc.4 = 0 Case 7: Portc.1 = 1 : Portd.2 = 0 : Portd.1 = 0 : Portd.0 = 1 : Portc.2 = 1 : Portc.3 = 1 : Portc.4 = 0 Case 8: Portc.1 = 0 : Portd.2 = 0 : Portd.1 = 0 : Portd.0 = 0 : Portc.2 = 0 : Portc.3 = 0 : Portc.4 = 0 Case 9: Portc.1 = 0 : Portd.2 = 0 : Portd.1 = 0 : Portd.0 = 0 : Portc.2 = 0 : Portc.3 = 1 : Portc.4 = 0 End Select Return Sub Sa_zyad Incr _hour End Sub Sub Da_zyad Incr _min _sec = 0 End Sub Sectic: Toggle Portd.7 Toggle Portb.2 Return
اما از دیگرپورت های میکرو برای روشن وخاموش کردن DAT سون سگمنت ها به عنوان ثانیه شمار (شما می توانید از DAT های خود سون سگمنت ها نیز استفاده کنید ) واتصال کلید برای تنظیم ساعت و دقیقه بصورت زیر استفاده می کنیم: 1- برای ثانیه شمار در زیر برنامه Sectic دستور Toggle Portx.y ( در این برنامه Toggle Portd.7 و Toggle Portb.2 ) را قرار می دهیم.بدین صورت هر ثانیه DAT ها روشن و خاموش می شوند. 2-برای اتصال کلید ها از دستور زیر بهره می بریم: Config Debounce = X
که X مقادیر معینی می پذیرد.در واقع Debounce یک لرزه گیر برای کلید است بطوری که اگر به مقدار X دست خود را روی کلید نگه ندارید زیر برنامه معیین اجرا نمی شود.استفاده از این دستور نیاز به کد های دیگر نیز دارد که به طور کامل در برنامه آمده اند. شما می توانید این ساعت را بصورت کوچک (برای ماشین)،رو میزی،دیواری درست کنید واز داشتن یک ساعت دیجیتال خوب لذت ببرید. موضوعات
پيوندها
۩۞۩ فلزیاب و اطلاعات علمی ۩۞۩ و آدرس 1kavosh.com لینک نمایید سپس مشخصات لینک خود را در زیر نوشته . در صورت وجود لینک ما در سایت شما لینکتان به طور خودکار در سایت ما قرار میگیرد.
|
|||
 |
تبادل لینک هوشمند 